home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 72 / PC Actual CD 72.iso / Aplicaciones / Contanet / ContaNet / ns56.ns_ / ns56.ns (.txt)
Encoding:
Visual Basic Form  |  2000-10-25  |  8.6 KB  |  280 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2775
  5.    ClientLeft      =   2550
  6.    ClientTop       =   4305
  7.    ClientWidth     =   6720
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   2775
  11.    ScaleWidth      =   6720
  12.    Begin VB.Frame Frame1 
  13.       Caption         =   "Consultar Asientos"
  14.       Height          =   675
  15.       Left            =   60
  16.       TabIndex        =   11
  17.       Top             =   1560
  18.       Width           =   6435
  19.       Begin VB.CommandButton leer 
  20.          Caption         =   "leer"
  21.          Height          =   375
  22.          Left            =   2400
  23.          TabIndex        =   16
  24.          Top             =   240
  25.          Width           =   1515
  26.       End
  27.       Begin VB.CommandButton Proximo 
  28.          Caption         =   "Proximo >>"
  29.          Height          =   375
  30.          Left            =   3960
  31.          TabIndex        =   15
  32.          Top             =   240
  33.          Width           =   1395
  34.       End
  35.       Begin VB.CommandButton Anterior 
  36.          Caption         =   "<< Anterior"
  37.          Height          =   375
  38.          Left            =   1020
  39.          TabIndex        =   14
  40.          Top             =   240
  41.          Width           =   1335
  42.       End
  43.       Begin VB.CommandButton primero 
  44.          Caption         =   "Primero"
  45.          Height          =   375
  46.          Left            =   120
  47.          TabIndex        =   13
  48.          Top             =   240
  49.          Width           =   855
  50.       End
  51.       Begin VB.CommandButton ultimo 
  52.          Caption         =   "Ultimo"
  53.          Height          =   375
  54.          Left            =   5460
  55.          TabIndex        =   12
  56.          Top             =   240
  57.          Width           =   855
  58.       End
  59.    End
  60.    Begin VB.CommandButton leerCuenta 
  61.       Caption         =   "Leer Cuenta"
  62.       Height          =   315
  63.       Left            =   5100
  64.       TabIndex        =   10
  65.       Top             =   1200
  66.       Width           =   1395
  67.    End
  68.    Begin VB.CommandButton LeerExtracto 
  69.       Caption         =   "Leer Extracto"
  70.       Height          =   315
  71.       Left            =   5100
  72.       TabIndex        =   9
  73.       Top             =   840
  74.       Width           =   1395
  75.    End
  76.    Begin VB.CommandButton SoloGrabar 
  77.       Caption         =   "Solo Grabar"
  78.       Height          =   315
  79.       Left            =   5100
  80.       TabIndex        =   8
  81.       Top             =   120
  82.       Width           =   1395
  83.    End
  84.    Begin VB.CommandButton AnularAsiento 
  85.       Caption         =   "Anular Asiento"
  86.       Height          =   315
  87.       Left            =   5100
  88.       TabIndex        =   7
  89.       Top             =   480
  90.       Width           =   1395
  91.    End
  92.    Begin VB.CommandButton cerrar 
  93.       Caption         =   "Cerrar Empresa"
  94.       Height          =   375
  95.       Left            =   180
  96.       TabIndex        =   6
  97.       Top             =   600
  98.       Width           =   1575
  99.    End
  100.    Begin VB.CommandButton abrir 
  101.       Caption         =   "Abrir Empresa"
  102.       Height          =   375
  103.       Left            =   180
  104.       TabIndex        =   5
  105.       Top             =   180
  106.       Width           =   1575
  107.    End
  108.    Begin VB.TextBox Text2 
  109.       Height          =   375
  110.       Left            =   2940
  111.       TabIndex        =   2
  112.       Text            =   "000110"
  113.       Top             =   600
  114.       Width           =   1695
  115.    End
  116.    Begin VB.CommandButton Grabar20 
  117.       Caption         =   "Grabar 20 Asientos"
  118.       Height          =   435
  119.       Left            =   180
  120.       TabIndex        =   1
  121.       Top             =   1020
  122.       Width           =   1575
  123.    End
  124.    Begin VB.TextBox Text1 
  125.       Height          =   375
  126.       Left            =   2940
  127.       TabIndex        =   0
  128.       Text            =   "000011"
  129.       Top             =   1080
  130.       Width           =   1695
  131.    End
  132.    Begin VB.Label Label2 
  133.       Caption         =   "Fecha"
  134.       Height          =   255
  135.       Left            =   2160
  136.       TabIndex        =   4
  137.       Top             =   660
  138.       Width           =   615
  139.    End
  140.    Begin VB.Label Label1 
  141.       Caption         =   "Asiento"
  142.       Height          =   255
  143.       Left            =   2100
  144.       TabIndex        =   3
  145.       Top             =   1140
  146.       Width           =   735
  147.    End
  148. Attribute VB_Name = "Form1"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Dim CN As Enlace
  154. Sub MostrarDatos()
  155. Debug.Print
  156. Debug.Print CN.Fecha; " "; CN.N
  157. Debug.Print
  158. For x = 1 To CN.ContadorApuntes
  159.     Debug.Print x; CN.Apunte(x).Cuenta; " "; CN.Apunte(x).Descripci
  160. n; " "; CN.Apunte(x).Importe
  161. For x = 1 To CN.ContadorIva
  162.     Debug.Print x; CN.IVA(x).Base; CN.IVA(x).Factura
  163. For x = 1 To CN.ContadorCartera
  164.     Debug.Print x; CN.Cartera(x).FechaVencimiento
  165. Text2.Text = CN.Fecha
  166. Text1.Text = CN.N
  167. End Sub
  168. Private Sub abrir_Click()
  169. 'CN.AbrirEmpresa "c:\Archivos de Programa\ContaNet\datos\Empresa de Pruebas" ' , "xxxx" 'Password si est
  170.  asignada
  171. CN.AbrirEmpresa "c:\Program Files\ContaNet\datos\Empresa de Pruebas" ' , "xxxx" 'Password si est
  172.  asignada
  173. End Sub
  174. Private Sub Anterior_Click()
  175. CN.LeerAnteriorAsiento
  176. MostrarDatos
  177. End Sub
  178. Private Sub cerrar_Click()
  179. CN.CerrarEmpresa
  180. End Sub
  181. Private Sub AnularAsiento_Click()
  182. fff$ = Text2
  183. aaa$ = Text1
  184. CN.AnularAsiento Fecha:=fff$, N
  185. meroAsiento:=aaa$
  186. End Sub
  187. Private Sub Form_Load()
  188. Set CN = New Enlace
  189. ' si da un error aqui debe para la ejecuci
  190. ' despu
  191. s ir al men
  192.  a Tools... References
  193. ' debe desactivar la casilla que pone:
  194. ' Missing: ContaNet OLE Server
  195. ' A continuaci
  196. n debe hacer click sobre aceptar
  197. ' Despues debe ir otra vez al men
  198.  de Tools...References
  199. ' Esta vez debe activar la casilla que pone
  200. ' ContaNet OLE Server
  201. End Sub
  202. Private Sub Form_Unload(Cancel As Integer)
  203. Set CN = Nothing
  204. End Sub
  205. Private Sub leer_Click()
  206. CN.Fecha = Text2
  207. mero = Text1
  208. CN.LeerAsiento
  209. MostrarDatos
  210. End Sub
  211. Private Sub Grabar20_Click()
  212. On Error Resume Next
  213. CN.CrearCuenta Cuenta:="4300000988", Titulo:="JOSE GOMEZ"
  214. For x = 1 To 20
  215.     CN.Fecha = "31/10/00"
  216.     CN.N
  217. mero = ""
  218.     CN.A
  219. adirApunte Cuenta:="6000000001", Descripci
  220. n:="Factura " & x, Tipo:=1, Importe:=5000, Diario:=2
  221.     CN.A
  222. adirApunte Cuenta:="4770000000", Descripci
  223. n:="IVA Fra. " & x, Tipo:=2, Importe:=200, Diario:=2
  224.     CN.A
  225. adirApunte Cuenta:="4000000001", Descripci
  226. n:="Factura " & x, Tipo:=1, Importe:=5200, Diario:=2
  227.     CN.A
  228. adirApunte Cuenta:="5720000001", Descripci
  229. n:="Pago Fra. " & x, Tipo:=2, Importe:=5200, Diario:=2, Punteo:=1
  230.     CN.A
  231. adirApunte Cuenta:="4000000000", Descripci
  232. n:="Pago Fra. " & x, Tipo:=1, Importe:=5200, Diario:=2
  233.     CN.A
  234. adirIVA CuentaClienteProveedor:="4000000000", CuentaIVA:="4720000000", Factura:=x, FechaFactura:="31/10/00", TipoIva:="04", SRTC:="R", Base:=5000, Total:=5200
  235.     CN.A
  236. adirCartera FechaVencimiento:="31/12/00", Cuenta:="4000000001", Cartera:="02", Notas:="Ole Test Fra." & x, Importe:=1733
  237.     CN.A
  238. adirCartera FechaVencimiento:="28/02/01", Cuenta:="4000000001", Cartera:="02", Notas:="Ole Test Fra." & x, Importe:=1733
  239.     CN.A
  240. adirCartera FechaVencimiento:="31/03/01", Cuenta:="4000000001", Cartera:="02", Notas:="Ole Test Fra." & x, Importe:=1734
  241.     CN.A
  242. adirAnalitica "6000000001", "1111111111", "PRUEBAS ANALITICA", 1, 2000, 1
  243.     CN.A
  244. adirAnalitica "6000000001", "2222222222", "PRUEBAS ANALITICA", 1, 2000, 1
  245.     CN.A
  246. adirAnalitica "6000000001", "3333333333", "PRUEBAS ANALITICA", 1, 1000, 1
  247.     CN.GrabarAsiento
  248.     If Err <> 0 Then MsgBox Err.Description, vbCritical: Exit For
  249. End Sub
  250. Private Sub leerCuenta_Click()
  251. CN.LeerPlan Cuenta:="6*"
  252. For x = 1 To CN.ContadorPlan
  253.     Debug.Print x; CN.Plan(x).Cuenta; " "; CN.Plan(x).Titulo; " "
  254.     Debug.Print CN.Plan(x).DebeEnero; CN.PlanDebe(x, 1)
  255.     For y = 0 To 14
  256.         Debug.Print y; CN.PlanDebe(x, y); CN.PlanHaber(x, y)
  257.     Next
  258.     Debug.Print
  259. End Sub
  260. Private Sub LeerExtracto_Click()
  261. CN.LeerExtracto "7*", "07/01/00", "08/01/00"
  262. For x = 1 To CN.ContadorExtracto
  263.     Debug.Print x; CN.Extracto(x).Cuenta; " "; CN.Extracto(x).Fecha; " "; CN.Extracto(x).Asiento; CN.Extracto(x).Importe; CN.Extracto(x).Punteo
  264. End Sub
  265. Private Sub primero_Click()
  266. CN.LeerPrimerAsiento
  267. MostrarDatos
  268. End Sub
  269. Private Sub Proximo_Click()
  270. CN.LeerProximoAsiento
  271. MostrarDatos
  272. End Sub
  273. Private Sub SoloGrabar_Click()
  274. CN.GrabarAsiento
  275. End Sub
  276. Private Sub ultimo_Click()
  277. CN.LeerUltimoAsiento
  278. MostrarDatos
  279. End Sub
  280.